home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / UTILITY.EXE / ATTRIBS.BAS next >
BASIC Source File  |  1991-05-22  |  896b  |  24 lines
  1. COLOR,31
  2. CLS
  3. INPUT File$
  4. File$ = File$ + CHR$(0)
  5. Varptr% = VARPTR(File$)
  6. Varseg% = VARSEG
  7. MACHLG &1E,&8E,&1E,Varseg%,&8B,&16,Varptr%,&42,&B0,&00,&B4,&43,&CD,&21,&1F,&89
  8. MACHLG &0E,CX%,&A3,AX%
  9. IF AX% = 2 OR AX% = 3 OR AX% = 5 CX% = -1
  10. LONG IF CX% <> -1
  11.       PRINT,,"File attributes: " : PRINT
  12.       IF CX% = 0  PRINT,, "None"
  13.       IF CX% > 31 PRINT,, "Archive Set"      : CX% = CX%-32
  14.       IF CX% > 15 PRINT,, "Subdirectory"     : CX% = CX%-16
  15.       IF CX% > 7  PRINT,, "Volume label"     : CX% = CX%-8
  16.       IF CX% > 3  PRINT,, "System file"      : CX% = CX%-4
  17.       IF CX% > 1  PRINT,, "Hidden file"      : CX% = CX%-2
  18.       IF CX% = 1  PRINT,, "Read-only file"
  19. XELSE
  20.     PRINT "Invalid filename or file not found"
  21. END IF
  22. "Freeze"
  23. IFINKEY$=""GOTO"Freeze"
  24.